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IBM 113Q FORTRAN Language 



This publication presents the IBM 1130 FORTRAN language 
and programming rules. The FORTRAN language closely 
resembles the language of mathematics and is designed to 
be used for mathematically-oriented computer applications. 








PREFACE 



FORTRAN (FORmula TRANslation) is a coding 
system with a language that closely resembles the 
language of mathematics. It is a system designed 
primarily for scientific and engineering computations. 
Since this system is essentially problem oriented 
rather than machine oriented, it provides scientists 
and engineers with a method of communication that 
is more familiar, easier to learn, and easier to use 
than actual computer language. 

This publication presents the IBM 1130 For- 
tran language and programming rules; it should 
not be used as a Fortran primer. For general 
information about Fortran, refer to the IBM 



FORTRAN General Information Manual (Form F28- 
8074). 

Machine Configuration and Feature Requirements 

The minimum machine configuration and feature 
requirements needed to compile programs with the 
IBM 1130 Card/Paper-Tape Fortran Programming 
System are: 

• IBM 1130-lA Central Processing Unit. 

• IBM 1442 Card Read Punch, or IBM 1054 
Paper-Tape Reader and IBM 1055 Paper- 
Tape Punch. 



This publication supersedes and makes obsolete prior 
publication C26-5933-1 and TNL N26-0109. 



Copies of this and other IBM publications can be obtained through IBM Branch Offices. 
A form has been provided at the back of this publication for readers' comments. 
If the form has been detached, comments may be directed to : 
IBM, Programming Publications Dept. 234, San Jose, Calif. 95114 
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IBM 1130 FORTRAN PROGRAMMING SYSTEM 



The IBM 1130 Fortran Programming System consists 
of two parts: the language and the compiler. The 
language is a set of statements, composed of expres- 
sions and operators, which are used in writing the 
source program. The 1130 Fortran Compiler, pro- 
vided by IBM, is a program which translates the 
source program statements into a form suitable for 
execution on the IBM 1130 System The translated 
statements are known as the object program. The 
compiler detects certain errors in the source program 
and writes appropriate messages on the typewriter. 
At the user's option, the compiler also produces a 
listing of the symbol table. 

Coding Form 

The statements of a Fortran source program are 
normally written on a standard Fortran coding 
sheet (Form No. X28-7327), Fortran statements 
are written one to a line in columns 7-72. If a 
statement is too long for one line, it may be con- 
tinued on a maximum of five successive lines by 
placing any character other than a blank or a zero 
in column 6 of each continuation line. For the first 
line of a statement, column 6 must be blank or zero. 
Columns 1-5 of the first line of a statement may 
contain a statement number. This statement number 
consists of 1-5 digits of any value; leading zeros 
are ignored. Statement numbers may appear any- 
where in the statement number field but must not 
contain any special characters. The statement num- 
bers may be assigned in any order; the sequence of 
operations is always dependent upon the order of the 
statements in the program, not on the value of the 
statement numbers. 

NOTE: Superfluous statement numbers may de- 
crease efficiency during compilation and should, 
therefore, be avoided. 

Columns 73-80 are not used by the Fortran 
compiler and may, therefore, be used for program 
identification, sequencing, or any other purpose. 

Comments to explain the program may be writ- 
ten in columns 2-72 of a line if the character C is 
placed in column 1. Comments may appear any- 
where except before a continuation line or after an 
END statement. The comments are not processed 
by the Fortran compiler. Blank cards in a source 
deck are ignored by the Fortran compiler. 



Statements 

The Fortran statements are the instructions used in 
the Fortran language. There are five categories of 
Fortran statements: 

• Arithmetic Statements, which are used to de- 
fine calculations to be performed. 

• Control Statements , which are used to govern 
the sequence of execution of the program 
statements. 

• Input /Output Statements, which are used to 
transmit information between the computer 
and input or output units. 

• Specification Statements , which are used to 
provide information about the data that the 
object program is to process. 

• Subprogram Statements, which are used to 
define and use subprograms. 

Blanks may be used freely to improve the readability 
of a Fortran program listii^. For example , the 
following statements have a valid format: 

GObTO(l,2,3,4),I 
GObTObb(l,2,3,4),bbI 

where b represents a blank. 

CONSTANTS, VARIABLES, AND SUBSCRIPTS 

Fortran provides a means of expressing numeric 
constants, variable quantities, and subscripted vari- 
ables. The rules for expressing these quantities are 
quite similar to the rules of ordinary mathematical 
notation. 

Arithmetic calculations specified in an object 
program are performed with binary numbers; since 
decimal fractions cannot be represented exactly, 
exact decimal results of arithmetic calculations 
should not be expected. 

Constants 

A constant is any number which is used in a computa- 
tion without chaise from one execution of the program 



to the next, A constant appears in numeric form in 
the source statement. For example, in the state- 
ment 

J = 3 + K 

the 3 is a constant, since it appears In actual numer- 
ic form. Two types of constants may be written in 
Fortran: integer and real. 

Integer Constants 

An integer constant is a number written without a 
decimal point. The magnitude of an Integer constant 
must not be greater than 32767 (21^—1). 

Commas are not permitted within any Fortran 
constants. A preceding plus sign is optional for 
positive numbers. Any unsigned constant is assumed 
to be positive. 

The following examples are valid integer con- 
stants: 



91 

-173 

+ 327 

The following are not valid integer constants: 



3.2 
27. 
31459036 

5,496 
Real Constants 



(contains a decimal point) 
(contains a decimal point) 
(exceeds the magnitude permitted 
by the compiler) 
(contains a comma) 



A real constant is a number written with a decimal 
point and consisting of 1-7 or 1-10 significant deci- 
mal digits (the precision to be selected at compile 
time) . The magnitude of a real constant must not be 
greater than 2^27 or less than 2~129 (approximately 
10^^ and 10"^^) or zero. 

A real constant may be followed by a decimal ex- 
ponent written as the letter E followed by a one- or 
two-digit integer constant (signed or unsigned) indi- 
cating the power of 10. 

The following examples are valid real constants: 



105. 
3.14159 
5.E3 
5.0E3 
-5,0E03 
5.0E-3 
5.0E1 



(5. x 10^) 
(5, x 10^) 
(-5.0 X 10^) 
(5. Ox 10"3> 
(5. X 10) 



The following are not valid real constants: 
325 



OE 
0E003 



(no decimal point; however, this 
is a valid integer constant) 
(no exponent) 
(exponent contains three digits) 



Variables 



A Fortran variable is a symbolic representation of 
a quantity that may assume different values. The 
value of a variable may change either for different 
executions of a program or at different stages within 
the program. For example, in the statement: 

A = 5.0 + B 

both A and B are variables. The value of B is deter- 
mined by some previous statement and may change 
from time to time. The value of A varies whenever 
this computation is performed with a new value for B . 

Variable Names 

A variable name consists of 1-5 alphameric cliarac- 
ters, the first of which must be alphabetic. 



Examples: 



Variable Types 



M 

DEV86 

12 



') 



The type of variable corresponds to the type of data 
the variable represents (i.e. , integer or real). 
Variables can be specified in two ways: implicitly or 
explicitly . 

Implicit Specification. Implicit specification of a 
variable is made as follows: 

1. If the first character of the variable name is 
I, J, K, L, M, or N, the variable is an 
integer variable. 

2. If the first character of the variable name is 
not I, J, K, L, M, or N, the variable is a 
real variable. 

Explicit Specification. Explicit specification of a 
variable type is made by using the Type statement 
(see Type Statements ). The explicit specification 



overrides the implicit specification. For example, 
if a variable name is ITEM and a Type specification 
statement indicates that this variable is real, the 
variable is handled as a real variable, even though 
its initial letter is I. 

Naming Variables 

The rules for naming variables allow for extensive 
selectivity. In general, it is easier to follow the flow 
of a program if meaningful symbols are used wher- 
ever possible. For example, to compute distance it 
would be possible to use the statement: 

X = Y*Z (Asterisk denotes multiplication) 

but it would be more meaningful to write: 

D = R*T 



Suppose it is desired to refer to the second quantity 
in the group; in ordinary mathematical notation, this 
would be NEXTg. In Fortran this would be NEXT(2). 
The quantity 2 is called a subscript. Thus, NEXT(2) 
has the value 12 and NEXT(4) has the value 42, 

Similarly, an ordinary mathematical notation 
might use NEXTn to represent any element of the 
array NEXT. In Fortran, this is written as NEXT 
(I) where I equals 1, 2, 3, 4, or 5. 

The array could be two-dimensional; for example, 
the array LIST: 



COLUMNl COLUMN2 COLUMNS 



ROWl 


82 


4 


7 


R0W2 


12 


13 


14 


ROW3 


91 


1 


31 


R0W4 


24 


16 


10 


ROWS 


2 


8 


2 



or: 



DIST = RATE * TIME 

Sim^ilarly, if the computation were to be performed 
using integers, it would be possible to write: 

I = J*K 



or: 



ID 



IR * IT 



IDIST = IRATE * ITIME 

In other words, variables can often be written in a 
meaningful manner by using an initial character to 
indicate whether the variable is integer or real and 
by using succeeding characters as an aid to the user's 
memory. 

Arrays and Subscripts 

An array is a group of quantities arranged in a parti- 
cular order. It is often advantageous to be able to 
refer to this entire group by one name, and to refer 
to each individual quantity in this group in terms of 
its position in the group. For example, assume that 
the following is an array named NEXT: 

15 

12 

18 

42 

19 



Suppose it is desired to refer to the number in 
row 2, column 3; this would be: 

LIST(2,3) 

where 2 and 3 are the subscripts. Thus, LIST(2, 3) 
has the value 14 and LIST(4, 1) has the value 24. 

Ordinary mathematical notations might use 
LISTj ; to represent any element of the array LIST. 
In Fortran, this is written as LIST (I, J) where I 
equals 1, 2, 3, 4, or 5 and J equals 1, 2, or 3. 

Fortran allows up to three subscripts (i. e. , 
three-dimensional arrays). For example, a three- 
dimensional array might be used to store statistical 
data on the urban and rural population of each state 
for a period of 10 decades . 

The use of an array in the source program must 
be preceded by either a DIMENSION statement, a 
COMMON statement, or a Type statement in order 
to specify the size of the array. The first of these 
statements that refers to the array must specify its 
size ( see Specification Statements ). 

Arrangement of Arrays in Storage 

Arrays are stored in column order in descending stor- 
age addresses, with the value of the first of their sub- 
scripts increasing most rapidly and the value of the 
last increasing least rapidly. In other words, arrays 
are stored with element (1, 1, 1) in a higher core lo- 
cation than element (2, 3,4). In scanning the array 
from element (1, 1, 1), the left indices are advanced 



more rapidly than those on the right, A one -dimen- 
sional array, J(5), in address 0504 appears in storage 
as follows: 



Address 


Element 


0500 


J (5) 


0501 


J (4) 


0502 


J (3) 


0503 


J (2) 


0504 


J(l) 



A two-dimensional array, K(5,3), appears in 
storage in single-array form in ascending storage 
addresses in the following order reading from left 
to right: 

K (5, 3) K (4, 3) K (3, 3) K (2, 3) K (1, 3) K (5, 2) 
K (4, 2) K (3, 2) K (2, 2) K (1, 2) K (5, 1) K (4, 1) 
K (3, 1) K (2, 1) K (1, 1) 

If K (5, 3) is in core address 0200, K (1, 1) will be 
in core address 0214. 

The' following list is the order of a three- 
dimensional array, A(3,3,3): 

A(3, 3, 3) A(2, 3, 3) A(l, 3, 3) A(3, 2, 3) A(2, 2, 3) 
A(l, 2, 3) A(3, 1, 3) A(2, 1, 3) A(l, 1, 3) A(3, 3, 2) 
A(2, 3, 2) A(l, 3, 2) A(3, 2, 2) A(2, 2, 2) A(l, 2, 2) 
A(3, 1, 2) A(2, 1, 2) A(l, 1, 2) A(3, 3, 1) A(2, 3, 1) 
A(l, 3, 1) A(3, 2, 1) A(2, 2, 1) A(l, 2, 1) A(3, 1, 1) 
A(2, 1, 1) A(l, 1, 1) 

Subscript Forms 

Subscripts may take the following forms: 

V 

c 

v+c 

v-c 

c*v 

c*v+c' 

c*v-c' 

where: v represents an unsigned, nonsubscripted, 

integer variable; c and c' represent unsigned 
integer constants . 



Examples: 

The following are valid subscripts: 

MAX 
19 

JOB+2 
NEXT-3 

8*IQUAN 

5*L+7 

4+M-3 

The following are not valid subscripts: 



-I 

A+2 



1+2. 
-2*J 
1(3) 
K*2 



2+JOB 



(the variable may not be signed) 
(A is not an integer variable Unless 
defined as such by a Type state- 
ment) 
(2. is not an integer constant) 
(the constant must be unsigned) 
(a subscript may not be subscripted) 
(for multiplication, the constant 
must precede the variable; thus, 
2*K is correct) 
(for addition, the variable must 
precede the constant; thus, JOB+2 
is correct) 



Subscripted Variables 

A subscripted variable consists of a variable name 
followed by a pair of parentheses enclosing one, two, 
or three subscripts separated by commas. 

Examples: 



A(I) 

K(3) 

ALPHA (I, J+2) 

BETA (5*J-2, K-2, L+3) 

Expressions 

Expressions appear on the right-hand side of arith- 
metic statements and in certain control statements. 
Expressions are used to specify a computation be- 
tween constants and variables. 



Arithmetic Expressions 



Examples: The following are valid expressions: 



The simplest arithmetic expression consists of a 
single constant, variable, or subscripted variable. 
If the quantity is an integer quantity, the expression 
is said to be in the integer mode. If the quantity is 
a real quantity, the expression is said to be in the 
real mode. 



Examples: 




MODE OF 


EXPRESSION 


TYPE OF DATA 


EXPRESSION 


3 


Integer Constant 


Integer 


I 


Integer Variable 


Integer 


3.0 


Real, Constant 


Real 


A 


Real Variable 


Real 


A(I) 


Real Variable 


Real 



In the last example, note that the subscript 
(which is always an integer quantity) does not affect 
the mode of the expression. The mode of the ex- 
pression is determined solely by the mode of the 
quantity itself. 

An arithmetic expression is usually a com- 
bination of constants, subscripted or nonsubscripted 
variables, function names (see Subprogram State- 
ments), and arithmetic operation symbols. 

The arithmetic operation symbols +, -, *, /, 
and ** denote addition, subtraction, multiplication, 
division, and exponentiation, respectively. 

Examples: 

A+3.0 

B**2 

C-D 

E/F 

A+(X**2)+B*X-C 



Rules for Construction of Arithmetic Expressions 

Rule 1. All constants, variables, and functions 
that form an arithmetic expression need not be of 
the same mode or type. It should be noted, how- 
ever, that a mixed expression is computed in the 
real mode. This means that some inefficiencies 
exist in mixed mode computations since all integer 
values will be converted to real values. 



Expression 



5* JOB+ITEM/(2*ITAX) 

5. *AJOB+BITEM/(2. *TAX) 

J+1 

A**I+B(J)+€(K) 

A**B 

I**J+K(L) 

A+B(I)/ITEM 

DEV+I 

ITA**2. 5 



Mode 

Real 

Integer 

Real 

Integer 

Real 

Real 

Integer 

Mbced 

Mixed 

Mixed 



Rule 2. Any expression may be enclosed in paren- 
The use of parentheses does not affect the 
Thus, A, (A), and ((A)) 



theses. 

mode of the expression. 

are all valid real expressions. 

Parentheses may also be used in arithmetic 
expressions, as in algebra, to specify the order in 
which the various arithmetic operations are to be 
performed. Within parentheses, or where paren- 
theses are omitted, the order of operations is as 
follows: 

1. Evaluation of Functions 

2. Exponentiation 

3. Multiplication and Division (left to right) 

4. Addition and Subtraction (left to right) 

For example, the expression: 
A*B/(C+D)**I+D 

is effectively evaluated in the following order: 

1, AxB 

2. C+D 



3. (C+D)I 

4. (AxB)/(C+D)I 

5. ((AxB)/(C+D)I)+D 



NOTE: Parentheses may not be used to imply 
multiplication; the asterisk arithmetic operator must 
always be used for this purpose. Therefore, the 
algebraic expression: 

(AxB) (-C°) 
must be written as: 

(A*B) * (-C**D) 

Rule 3. No two operators may appear in sequence 
(e.g. , A*-B is invalid). 



Rule 4. No operation symbol may be assumed (e. g. , 
3 A will not be taken as 3. *A). 

Rule 5. The expression A**B**C is permitted and 
evaluated as A**(B**C). 



ARITHMETIC STATEMENTS 

The Arithmetic statement is similar to a mathe- 
matical equation. 

General Form: 

A = B 

where: 

A is any variable (subscripted or nonsub- 

scripted), and B is an arithmetic expres- 
sion. 

In an Arithmetic statement, the equal sign 
means: is to be replaced by , rather than, is equal 
to. This distinction is important; for example, 
suppose the integer variable I has the value 3. 
Then, the statement: 

1 = 1+1 

would give I the value 4. This technique enables the 
programmer to keep counts and perform other re- 
quired operations in the solution of a problem. 

Examples: 

K = X + 2.5 

ROOT = (-B+(B**2-4. *A*C)**.5)/(2. *A) 

ANS (I) = A(J) + B(K) 

In each of the above Arithmetic statements, the 
arithmetic expression to the right of the equal sign 
is evaluated, converted to the mode of the variable 
to the left of the equal sign (if there is a difference), 
and this converted value is stored in the storage 
location associated with the variable name to the 
left of the equal sign. 

In the first example, K=X+2. 5, assume that 
the current value of X is 232. 18. Upon execution 
of this statement, 2. 5 is added to 232. 18, giving 
234. 68. This value is then truncated (because K is 
an integer variable) to 234, and this value replaces 
the value of K. If K were defined as a real variable 
by a Type statement, truncation would not occur 
and the value of K would be 234. 68. 



Examples: 

A = I Convert I to real value and store it 

in A. 
A = B Store the value of B in A. 

A = 3. *B Multiply 3 by B and store the result 

in A. 
I = B Truncate B to an integer and store 

it in I. 



CONTROL STATEMENTS 

The second class of Fortran statements is com- 
posed of control statements that enable the program- 
mer to control the course of the program. Normally, 
statements are executed sequentially; that is, after 
one statement has been executed, the statement 
immediately following it is executed. However, 
it is often undesirable to proceed in this manner. 
The following statements may be used to alter the 
sequence of a program. 

Unconditional GO TO Statement 

This statement interrupts the sequential execution 
of statements, and specifies the number of the next 
statement to be performed. 

General Form: 

GO TOn 

where: 

n is a statement number. 

Examples: 

GO TO 25 
GO TO 63468 

The first example causes control to be trans- 
ferred to the statement numbered 25 ; the second 
example causes control to be transferred to the 
statement numbered 63468. 

Computed GO TO 

This statement also indicates the statement that is 
to be executed next. However, the statement num- 
ber that the program is transferred to can be altered 
during execution of the program. 

General Form: 



GO TO (ni, n2. 



• > "m^> 



where: 



'1' 



•^2! 



. , iijjj are statement numbers and 
i is an integer variable whose value is 
greater than or equal to 1 and less than or 
equal to the number of statement numbers 
within the parentheses. 



This statement causes control to be transferred 
to statement n^, n2, . . . , n^^, depending on 
whether the current value of i is 1, 2, , . . , or ra, 
respectively. 

NOTE: If i>m or i<l, the results are unpredictable. 

Example: 

GO TO (10, 20, 30, 40), ITEM 



which means: if the result of the expression is less 
than zero, transfer to the statement numbered 12; if 
the result is zero, transfer to 72; otherwise, trans- 
fer to the statement numbered 10. 

DO Statement 

The ability of a computer to repeat the same opera- 
tions using different data is a powerful tool that 
greatly reduces programming effort. There are 
several ways to accomplish this when using the 
Fortran language. For example, assume that a 
manufacturer carries 1, 000 different parts in in- 
ventory. Periodically, it is necessary to compute 
the stock on hand of each item (STOCK) by subtracting 
stock withdrawals of that item (OUT) from the pre- 
vious stock on hand. These results could be achieved 
by the following statements: 



In this example, if the value of ITEM is 3 at 
the time of execution, a transfer occurs to the 
statement whose number is third in the series (30). 
If the value of ITEM is 4, a transfer occurs to the 
statement whose number is fourth in the series (40), 
etc. 

IF Statement 

This statement permits the programmer to change 
the sequence of statement execution, depending upon 
the value of an arithmetic expression. 

General Form: 



IF (a) n^, n^, tl^ 



where: 



a is an expression and nj, ng, and n3 are 
statement numbers. The expression, a, 
must be enclosed in parentheses; the state- 
ment numbers must be separated from one 
another by commas. 

Control is transferred to statement nj^, n2, or n3 
depending on whether the value of a is less than, 
equal to, or greater than zero, respectively. 



Example: 



10 



IF ((B+C)/(D**E)-F) 12, 72, 10 



12 

72 



5 1=0 

10 1=1 + 1 

25 STOCK (I) = STOCK (I) - OUT (I) 

15 IF (I-IOOO) 10, 30, 30 

The three statements (5, 10, and 15) required 
to control this loop could be replaced by a single DO 
statement. 

General Form: 



DO n i = m , mg 

or 
DO n i = m^, m , m„ 



where: 



n is any statement number, i is a nonsub- 

scripted integer variable, and m,, mo, m3 
are unsigned integer constants or nonsub- 
scripted integer variables. If mo is not 
stated (it is optional), its value is assumed 
to be 1. In this case, the preceding comma 
must also be omitted. 

Examples: 

DO 50 I = 1, 1000 
DO 10 I = J, K, L 
DO 11 I = 1, K, 2 

The DO statement is a command to repeatedly exe- 
cute the statements that follow, up to and including the 



statement n. The first time the statements are 
executed, i has the value mj, and each succeeding 
time, i is increased by the value of m3. After the 
statements have been executed with i equal to the 
highest value that does not exceed m2, control passes 
to the statement following statement number n. This 
is called a normal exit from the DO statement. 

The range (n) is the series of statements to be 
executed repeatedly. It consists of all statements 
following the DO, up to and including statement n. 
The range can consist of any number of statements. 

The index (i) is an integer variable that is incre- 
mented for each execution of the range of statements. 
Throughout the range of the DO, the index is avail- 
able for use either as a subscript or as an ordinary 
integer variable. However, the index may not be 
changed by a statement within the range of the DO. 
Upon the completion of the DO, the index must be 
redefined before being used again. When transfer- 
ring out of thj range of a DO, the index is available 
for use and is equal to the last value it attained. 

The initial value (mj) is the value of the index 
for the first execution of the range. The initial value 
cannot be equal to zero. 

The test value (m2) is the value that the index 
must not exceed. After the range has been executed 
with the highest value of the index that does not ex- 
ceed the test value, the DO is completed and the pro- 
gram continues with the first statement following the 
range. The test value is compared with the index 
value at the end of the range; therefore, a DO loop 
will always be executed at least once. 

The increment (m^;) is the amount by which the 
value of the index will be increased after each exe- 
cution of the range. The increment may be omitted, 
in which case it is assumed to be 1, 

Example: 





DO 25 1=1, 10 


5 


a 


10 


, 


15 


. 


20 


. 


25 


A=B+C 


26 


, 



This example shows a DO statement that will 
execute statements 5, 10, 15, 20, and 25 ten times. 
Upon each execution, the value of I will be incre- 
mented by 1 (1 is assumed when no increment is 
specified). After completion of the DO, statement 
26 is executed. 



In some cases, the DO is completed before the 
test value is reached. Consider the following: 

DO 5 K=l, 9, 3 

In this example, the range is executed three 
times (i.e. , K equal to 1, 4, and 7). The next 
value of K would be 10. Since this exceeds the test 
value, the DO is completed after three iterations. 

Restrictions. The restrictions on statements in the 

range of a DO are: 

1. Within the range of a DO may be other DOs. 
When this is so, all statements in the 
range of the inner DO must be in the range 
of the outer DO. A set of DOs satisfying 
this rule is called a nest of DOs. The 
maximum depth of a single nest of DOs is 
25. For example, the following configura- 
tion is permitted (brackets are used to 
indicate the range of the DOs): 



DO 
DO 
DO 



I 19006 1 * 

but, the following configuration is not 
permitted: 



DO 
DO 



Transfer of control from inside the range of 
a DO to outside its range is permitted at any 
time. If, and only if, a transfer is made 
from the range of an innermost DO loop, 
transfer back into the range of that innermost 
DO loop is allowed provided none of the in- 
dexing parameters (i, mj, m2, ms) are 
changed outside the range of the DO. A 
transfer back into the range of any other DO 
in the nest of DOs is not permitted. The 
following illustrations show those transfers 
that are valid and those that are invalid. 



*NOTE: The illustrations in this manual have a code number in the 
lower comer. This is a publishing control number and is unrelated 
to the subject matter. 



VALID: 



DO 



INVALID: 



DO 



DO"^ 



^ 



^ 



^ 



3. The last statement in the range of a DO loop 
must be an executable statement; however, 
it must not be a GO TO, IF, STOP, PAUSE, 
RETURN, or another DO statement. 

4. Any statement that redefines the value of 
the index or any of the indexing parameters 
(i. e. , mi, m2, m^) is not permitted in the 
range of a DO. 

CONTINUE Statement 

CONTINUE is a dummy statement that does not pro- 
duce any executable instructions. It is used as the 
last statement of a DO loop to provide a branch ad- 
dress (statement number) for GO TO statements that 
are intended to begin another repetition of the DO 
range. 

General Form: 

CONTINUE 

In the following example, the DO loop is executed 
20 times. The CONTINUE statement provides the 
branch address to begin the DO loop again when I<20. 
When 1=20, the DO loop is executed once more and 
the CONTINUE statement then provides the branch 
address for the next sequential statement outside 
the DO loop, that is, statement 40. 





DO 30 I = 1, 20 




D =D +5. 


7 


IF (A - B) 10,30,30 


10 


A = A + 1. 




B = B - 2. 




GOTO? 


30 


CONTINUE 


40 


C = A + B 



PAUSE Statement 



General Form: 



PAUSE or PAUSE n 



where: 



n is an imsigned integer constant whose value 
is equal to or less than 9999. 

The PAUSE statement causes the program to 
stop on a Wait instruction. If n is specified, its 
hexadecimal value will be displayed on the console 
by the accumulator lights. Pressing the Start key 
on the console causes the program to resume exe- 
cution, starting with the next executable statement 
following the PAUSE statement. 

STOP Statement 

General Form: 



STOP or STOP n 



where: 



n is an unsigned integer constant whose value 
is equal to or less than 9999. 

The STOP statement terminates the program. 
If n is specified, its hexadecimsil value will be dis- 
played on the console by the accumulator li^ts. 

END Statement 



General Form: 

END 

The END statement defines the end of a program 
or subprogram for the compiler. Physically, it 
must be the last statement of each program or sub- 
program. The END statement is not executable. 
Any source program cards following the END card 
will not be compiled. 



INPUT/OUTPUT STATEMENTS 

The Input/ Output (I/O) statements control the trans- 
mission of information between the computer and 
I/O units such as the card reader, card punch, or 
printer, etc. I/O statements are classified as 
follows: 



1. General I/O Statements. These statements 
cause transmission of information between 
the computer and I/O units. They are READ 
and WRITE. 

2. FORMAT Statements. These are non- 
executable statements that specify the 
arrangement of the data to be transferred, 
and the editing transformation required 
between internal and external forms of the 
data. The FORMAT statements are used 
in conjunction with the general I/O state- 
ments. 



General I/O Statements 

READ Statement 

The READ statement is used to transfer information 
from any input unit to the computer. Two forms of 
the READ statement may be used, as follows: 

READ (a,b) List 

READ (a, b) 

where: 

a is an unsigned integer constant or integer 
variable that specifies the logical unit 
number to be used for input data. The 
logical unit numbers for the 1130 
System are: 

2 1442 Card Reader 

4 1054 Paper-Tape Reader 

6 Console Keyboard 

b is the statement number of the FORMAT 
statement describing the type of data con- 
version. 

List is a list of variable names, separated by 
commas, for the input data. 



The READ (a, b) List form is used to read a 
number of items (corresponding to the variable 
names in the list) from the file on unit a, using 
FORMAT statement b to specify the internal repre- 
sentation of these data (see FORMAT Statement ). 

The List specifies the number of items to be 
read and the locations into which the items are to be 
placed. For example, assume that a card is punched 
as follows: 



Card Coluums 


Contents 


1-2 


25 


5-7 


102 


61-64 


-101 


70-71 


10 


80 


5 



If the following statement appears in the source 
program: 

READ (2, 25) I, J, K, L, M 

the card is read (assuming that 25 is the number of 
an appropriate FORMAT statement), and the pro- 
gram operates as though the following statements 
had been written: 

I = 25 

J = 102 

K = -101 

L = 10 

M = 5 

For the next execution of the READ statement, 
I, J, K, L, and M will have new values, depending upon 
vifhat is punched in the next card to be read. 

Any number of quantities may appear in a single 
list. Integer and real quantities may be transmitted 
by the same statement. 

If there are more quantities to be transmitted 
than there are items in the list, only the number of 
quantities equal to the number of items in the list are 
transmitted; remaining quantities are ignored. Thus, 
if a card contains three quantities and a list contains 
two, the third quantity is lost. Conversely, if a list 
contains more quantities than the input record, suc- 
ceeding cards (or other input records) are read until 
all the items specified in the list have been trans- 
mitted. 

When an array name appears in an I/O list in 
nonsubscripted form, all of the quantities in the array 
are transmitted in the order in which they are stored 
(see Arrangements of Arrays in Storage ). For ex- 
ample, assume that A is defined as an array of 25 
quantities. Then, the statement: 

READ (2, 15) A 

causes all of the quantities A(l), . . . , A (25) to be 
read into storage (In that order) from the 1442 Card 
Reader. 

Indexing I/O Lists 

Variables within an I/O list may be indexed and in- 
cremented in the same manner as with a DO statement. 
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For example, suppose it is desired to read data 
into the first five positions of the array A. This 
may be accomplished by using an indexed list, as 
follows: 

READ (2,15) (A(I), 1=1,5) 
15 FORMAT (F 10. 3) 

This is equivalent to: 



WRITE Statement 

The WRITE statement is used to transfer information 
from the computer to any of the output units (tape, 
printer, card punch, etc. ). Two forms of the WRITE 
statement may be used as follows: 

WRITE (a.b) List 
WRITE (a.b) 



DO 12 1=1, 5 
12 READ (2, 15) A(I) 
15 FORMAT (FIO. 3) 

As with DO statements, a third indexing parameter 
may be used to specify the amount by which the index 
is to be incremented at each iteration. Thus, 

READ (2, 15) (A(I), 1=1, 10, 2) 

causes transmission of values for A(l), A(3), A(5), 
A(7), and A(9). Furthermore, this notation may be 
nested. For example, the list: 

((C(I,J),D(I,J),J=1.5),I=1,4) 

would transmit data in the following order, reading 
from left to right: 



where: 



a is an unsigned integer constant or integer 

variable that specifies the logical unit num- 
ber to be used for output data. The logical 
unit numbers for the 1130 System are: 

1 Console Printer 

2 1442 Card Punch 

3 1132 Printer 

4 1055 Paper-Tape Punch 

b is the statement number of the FORMAT 
statement describing the type of data 
conversion. 

List is a list of variable names separated by 
commas for the output data. 



C(l,l), D(l,l), C(l,2), 

0(2,1), D(2, 1), C(2,2), 

C(3,l), D(3, 1), C(3,2), 

C(4,l), D(4,l), C(4,2), 



C(l,5), D(l,5) 

C(2,5), D(2,5) 

C(3,5), D(3,5) 

C(4,5), D(4,5) 



The READ (a,b) form may be used in conjunc- 
tion with a FORMAT statement to read H-type alpha- 
meric data into an existing H-type field In core 
storage (see Conversion of Alphameric Data ) . The 
size of the data field determines the amount of data 
to be read. For example, the statements: 

10 FORMAT (23HTHIS IS ALPHAMERIC DATA) 



READ (INPUT, 10) 

cause the next 23 characters to be read from the 
file on the unit named INPUT and placed into the 
H-type alphameric field whose contents were: 

THIS IS ALPHAMERIC DATA 



The WRITE (a,b) List form of the WRITE state- 
ment is used to write the data specified in the list on 
the file on unit a, using FORMAT statement b to 
specify the external representation of the data (see 
FORMAT Statement ). 

NOTE: The 1442 Card Read Punch has one input 
hopper. Therefore, if a READ or WRITE statement 
references a 1442, care should be taken to avoid 
punching a card that was only meant to be read or 
reading a card that was only meant to be punched. 

The WRITE (a, b) form is used to write alpha- 
meric data (see Conversion of Alphameric Data) . 
The actual data to be written is specified within the 
FORMAT statement; therefore, an I/O list is not 
required. The following statements illustrate the 
use of this form: 

25 FORMAT (24HWRITE ANY DATA IN H TYPE) 



WRITE (2,25) 
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Specifying Format 

In order for quantities to be transmitted from an 
external storage medium (e. g. , cards or paper 
tape) to the computer or from the computer to an 
external medium (cards, paper tape, or printed 
line), it is necessary that the computer know the 
form in which the data exists. This is accomplished 
by data conversion specifications within a FORMAT 
statement (see Conversion of Numeric Data) . 

FORMAT Statement 

The I/O statements require, in addition to a list of 
quantities to be transmitted, reference to a FOR- 
MAT statement. The FORMAT statement describes 
the type of conversion to be performed between the 
internal and the external representation of each 
quantity in the list by the use of data conversion 
specifications (see Conversion of Numeric Data ). 

General Form: 



m FORMAT (k^, k^, ..., k^^/t j^, t^ tj. . . ) 

where: 



kj.kg, 



• , k and t^ , t^* • * 



, tn represent data 
conversion specifications. 
/ represents the beginning of a new record, 
and m represents a statement number. 

Examples: 

5 FORMAT (15, F8.4) 
18 FORMAT (I4/F6, 2, F8.4) 
20 FORMAT (E 10. 4/18) 

FORMAT statements are not executed but they 
must be given a statement number. 

Slashes are used in a FORMAT statement to 
delimit unit records, which must be one of the follow- 
ing. 

1. A punched card or paper tape record with 
a maximum of 80 characters. 

2. A printed line with a maximum of 120 
print characters and 1 carriage control 
character. 

3. A typewritten line with a maximum of 120 
characters. 

Thus, the statement: 

5 FORMAT (F9, 2/E14. 5) 



specifies the data conversion specification F9. 2 for 
the first unit record, and the data conversion speci- 
fication E14.5 for the second unit record. 

Successive items in the I/O list are transmitted 
according to successive specifications in the FOR- 
MAT statement, until all items in the list are trans- 
mitted. If there are more items in the list than there 
are specifications in the FORMAT statement, control 
transfers to the preceding left parenthesis (inclu- 
ding any preceding repeat constant) of the FORMAT 
statement and the same specifications are used 
again with the next unit record. For example, 
suppose a program contains the following statements: 

10 FORMAT (F10.3,E12.4,F12. 2) 



WRITE (3, 10) A, B, C, D, E, F, G 

The following table shows the data transmitted 
in the column on the left and the specification by 
which it is converted in the center column. The 
column on the right shows the number of the record 
which contains the data. 



Data Transmitted 


Specification 


Record Number 


A 


F10.3 


1 


B 


E12.4 


1 


C 


F12. 2 


1 


D 


F10.3 


2 


E 


E12.4 


2 


F 


F12. 2 


2 


G 


F10.3 


3 



A specification may be repeated as many times 
as desired (within the limits of the output unit) by 
preceding the specification with an unsigned integer 
constant. Thus, 

(2F10.4) 
is equivalent to: 

(F10.4, F10.4) 

A limited, one-level, parenthetical expression 
is permitted to enable repetition of data fields ac- 
cording to certain format specifications within a 
longer FORMAT statement. For example, the state- 
ment: 

10 FORMAT (2(F 10. 6, ElO. 2), 14) 

is equivalent to: 

10 FORMAT (FIO. 6, ElO. 2, FIO. 6, ElO. 2, 14) 
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If there had been 8 items in the list, the above 
FORMAT statement would have been equivalent to: 

10 FORMAT (F10.6,E10.2,F10.6,E10.2,I4/ 
F10.6,E10.2,F10.6) 

The specifications in a FORMAT statement need 
not correspond in mode with the list items in the 
I/O statement; automatic input conversion will 
convert external values (I -type, E-type, and F-type) 
to the correct internal representation depending on 
the type of the variable in the READ statement list. 
The same type of conversion will be handled for 
variables in the WRITE statement list. 

Conversion of Numeric Data 

Three types of specifications (or conversion codes) 
are available for the conversion of numeric data. 
These types of conversions are specified in the 
following form: 

Iw 

Fw.d 

Ew.d 

where: 



leftmost print positions are filled with blanks. If 
the quantity is negative, the position preceding the 
leftmost digit contains a minus sign. 

For input it is not necessary to reserve a sign 
position. For example, 15 can be used to read in a 
5 -digit integer. 

The following examples show how each of the 
quantities on the left is printed, according to the 
specification 13: 



Internal Value 


Printed 


721 


*** 


-721 


*** 


-12 


-12 


8114 


*** 








-5 


-5 


9 


9 


1.7 


1 



NOTE: All error fields are filled in with asterisks. 



F-Conversion (Fw.d) 



I, F, and E specify the type of conversion. 

w is an unsigned integer constant specifying 
the total field length of the data. (This 
specification may be greater than that re- 
quired for the actual digits in order to pro- 
vide spacing between numbers. ) 

d is an unsigned integer constant specifying the 
number of decimal places to the right of 
the decimal point. 

NOTE: The decimal point between the w and d por- 
tions of the specification is required. 

For purposes of simplification, the following 
discussion of conversion codes deals with the printed 
line. The concepts developed apply to all permissible 
input/output media. 

I-Conversion (Iw) 

The specification 16 may be used to print a number 
In integer form; 6 print positions are reserved for 
the number. It is printed in this 6-position field 
right- justified (that is, the units position is at the 
extreme right). If the number to be converted is 
greater than 5 positions , an error condition will 
exist because one position must be reserved for 
the sign. If the number has less than 5 digits , the 



For F-type conversion, w is the total field length 
reserved and d is the number of places to the right 
of the decimal point (the fractional portion). The 
total field length reserved must include sufficient 
positions for a sign and a decimal f>oint. The sign, 
if negative, is printed. An output error condition 
will result if w < d+1. 

If insufficient positions are reserved by d, the 
fractional portion is truncated from the right. If 
excessive positions are reserved by d, zeros are 
filled in from the right. The integer portion of the 
number is handled in the same fashion as numbers 
converted by I-type conversion on input and output. 

The following examples show how each of the 
quantities on the left is printed according to the 
specification F5. 2: 



Internal Value 


Printed 


12.17 


***** 


-41. 16 


***** 


-.2 


-.20 


7.3542 


7.35t 


-1. 


-1.00 


9.03 


9.03 


187. 64 


***** 


5 


5.00 



tLast two digits of accuracy lost due to insufficient 
specification. 
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NOTES: 

1. All error fields are filled tn with asterisks. 

2. Numbers for F-conversion input need not 
have their decimal points appearing in the input field. 
If no decimal point appears, space need not be allo- 
cated for it. The decimal point will be supplied when 
the number is converted to an internal equivalent; the 
position of the decimal point will be determined by the 
format specification. However, if the decimal point 
does appear within the field and it is different from 
the format specification, this position overrides the 
position indicated in the format specification. 

3. Fractional numbers for which F-type out- 
put conversion is specified are normally printed with- 
out a leading zero. If F-conversion is used and zero 
decimal width is specified (for example, F 5.0), a frac- 
tional value is printed as a sign and a decimal point; 
however, a zero value is printed with a zero preced- 
ing the decimal point if the field width is sufficient. 

E-Conversion (Ew. d) 

For E-conversion, the fractional portion is again 
indicated by d. The w includes field d, spaces for 
a sign, a decimal point, and the letter E, plus 
space(s) for the exponent. Space must be reserved 
for each of these on output. An output error con- 
dition will result if w <d+5. For input, it is not 
necessary to reserve a sign position. 

The exponent is a signed or unsigned one- or two- 
digit integer constant not greater than 38. Ten (10) 
raised to the power of the exponent is multiplied by 
the number to obtain its true internal value. 

The following examples show how each of the 
quantities on the left is printed, according to the 
specification E9.3: 



Internal Value 


Printed 


238. 


. 238Eb03 


-.002 


-.200E-02 


. 00000000004 


.400E-10 


-21.0057 


-. 210Eb02t 



tLast three digits of accuracy lost due to insufficient 

specification, 
b represents a blank. 

NOTES: 

1. For input, the start of the exponent field 
must be marked by an E, or, if that is omitted, by 
a+ or - sign (not blank). Thus, E2, E+2, +2, +02, 
E02, and E+02 are all permissible exponent fields 
for input. 

2. For input, the exponent field may be omitted 
entirely (i. e. , E-conversion will accept input data in 
F-type format). 



3. Numbers for E-conversion input need not 
have their decimal points appearing in the input field. 
If no decimal point appears, space need not be allo- 
cated for it. The decimal point will be supplied when 
the number is converted to an internal equivalent; 
the position of the decimal point will be determined by 
the format specification. However, if the decimal 
point does appear within the field and it is different 
from the format specification, this position overrides 
the position indicated in the format specification. 

Conversion of Alphameric Data 

There are two specifications available for input/ 
output of alphameric data: H-conversion or 
literal data enclosed in quotes, and A-conversion. 
H-conversion is used for alphameric data that is 
not going to be changed by the object program 
(e.g. , printed headings); A-conversion is used for 
alphameric data in storage which is to be operated 
on by the program (e.g. , modifying a line to be 
printed). 

H-Conversion 

The specification nH is followed in the FORMAT 
statement by n alphameric characters. For example: 

24H THIS IS ALPHAMERIC DATA 

Blanks are considered alphameric data and must be 
included as part of the count n. A comma following 
the last alphameric character is optional. 

The effect of nH depends on whether it is used 
with an input or output statement. 

Input: n characters are extracted from the input 
record and replace the n characters included in 
the specification. For example, 

READ (4, 5) 

5 FORMAT (8HHEADINGS) 

would cause the next 8 characters to be read from 
the input file on the Riper-Tape Reader; these charac- 
ters would replace the data HEADINGS in storage. 

Output: The n characters following the specification 
are written as part of the output record. Thus, the 
statements: 

WRITE (1,6) 

6 FORMAT (15H OUST. NO. NAME) 

would cause the following record to be written on 
the Console Printer: 

CUST. NO. NAME 
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Literal Data Enclosed in Quotes 

Literal data can consist of a string of alphameric and 
special characters written within the FORMAT state- 
ment'and enclosed in quotes (a comma following the 
last quote is optional). For example: 

25 FORMAT (' 1966 INVENTORY REPORT') 

A quote character within literal data is repre- 
sented by two successive quote marks. For example, 
the characters DON'T are represented as: 

DON"T 



would cause the following record to be written on the 
Console Printer: 

THIS IS ALPHAMERIC DATA 
A-Conversion 

The specification Aw is used to transmit alphameric 
data to/from variables in storage. It causes the 
first w characters to be read into, or written from, 
the area of storage specified in the I/O list. For ex- 
ample, the statements: 

10 FORMAT (A4) 



The effect of the literal format code depends on 
whether it is used with an input or output statement. 

Input: A number of characters, equal to the number 
of characters between the quotes, are read from the 
designated I/O unit. These characters replace, in 
storage, the characters within the quotes. For 
example, the statements: 



READ (4, 10) ERROR 

would cause four alphameric characters to be read 
from the Paper-Tape Reader and placed (left- 
justified) into the field in storage named ERROR. 
The following statements: 



FORMAT (' HEADINGS') 
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INTEGER OUT 
FORMAT (3HXY= 



F9.3, A4) 



READ (4, 5) 



WRITE (OUT, 15)A, ERROR, B, ERROR 
may produce the following lines: 



would cause the next 9 characters to be read from the 
Paper-Tape Reader, these characters would replace 
the blank and the 8 characters H, E, A, D, I, N, G, and 
S in storage. 

Output. All characters (including blanks) within the 
quotes are written as part of the output data. Thus 
the statements: 



5 FORMAT (' THIS IS ALPHAMERIC DATA') 



WRITE (1, 5) 



XY= 5976. 214 

XY= 6173. 928 

where represents the contents of the field 

ERROR. 

Thus, A-conversion provides the facility for 
reading alphameric data into a field in storage, 
manipulating the data as required, and printing it 
out. 

If the number of alphameric characters is less 
than the length of the field in storage into which they 
are to be read, then the remaining rightmost charac- 
ters in the field are loaded with blanks. However, 
if the number of characters is greater than the length 
of the field in storage, only the rightmost characters 
are read in and the excessive leftmost characters 
are lost. It is important, therefore, to allocate 
enough area in storage to handle the alphameric 
characters being read in. Each real variable has 
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sufficient space for 4 or 6 characters (the preci- 
sion of real variables is specified at compile time); 
each integer variable has space for 2 characters. 
For example, 10 characters could be read into, or 
written from, the first five positions of the array 
I (I is an integer variable). Thus, two characters 
are contained in each of the five consecutive posi- 
tions: 1(1), 1(2), 1(3), 1(4), 1(5). 

Arithmetic operations involving variables con- 
taining alphameric characters should be performed 
in integer mode. Alphameric characters are repre- 
sented internally in eight-bit EBCDIC code (refer to 
the IBM 1130 Subroutine Library , Form C26-5929, 
for a description of the EBCDIC code used for internal 
representation of alphameric characters). 



consecutive slashes (/) in a FOHMAT statement. 
The number of input records skipped, or blank 
lines inserted between output records, depends upon 
the number and placement of the slashes within the 
statement. 

If there are n consecutive slashes at the be- 
ginning or end of a format specification, n input 
records are skipped or n blank lines are inserted 
between output records. If n consecutive slashes 
appear anywhere else in a format specification, the 
number of records skipped or blank lines inserted 
is n-1. For example, the statements: 

10 FORMAT (///I6) 

READ (INPUT, 10) MULT 



Blank Fields 

Blank characters may be provided in an output rec- 
ord, or characters of an input record may be skipped, 
by means of the specification, nX; n is the number 
of blanks desired or the number of characters to be 
skipped. 

When the nX specification is used with an input 
record, n characters are skipped over before the 
transmission of data begins. 

For example, if a card has six 10-column fields 
of integers, the statement: 



5 FORMAT (110, lOX, 4110) 

would be used, along with the appropriate READ 
statement, to avoid reading the second quantity. 

When this specification is used with an output 
record, n positions are left blank. Thus, the facility 
for spacing within a printed line is available. For 
example, the statement; 

10 FORMAT (3 (F6. 2, 5X)) 

may be used with the appropriate WRITE statement 
to print a line as follows: 

-23. 45bbbbbbl7. 32bbbbbb24. 67bbbbb 

where b represents a blank. 



cause 3 records to be skipped on the input file before 
data is read into MULT. 

The statements: 

15 FORMAT (15 ,////, F 5 . 2, 12//) 
WRITE (lOUT, 15) K, A, J 

result in the following output: 

Integer 

(blank line) 

(blank line) 

(blank line) 

Real Number Integer 

(blank line) 

(blank line) 

NOTE: The comma before or after the / is optional. 

To obtaia a multiline listing in which the first two 
lines are to be printed according to a special 
format and all remaining lines according to another 
format, the last-line specification should be en- 
closed in a second pair of parentheses. For 
example, in the statement: 

FORMAT (12, 3E12. 4/2F10, 3, 3F9. 4/(3F12. 4)) 

when data items remain to be transmitted after the 
format specification has been completely used, the 
format repeats from the last left parenthesis. Thus, 
the listing would take the following form: 



Multiple Field Format 

Blank lines may be introduced between output 
records, or input records may be skipped, by using 



12, E12. 4, E12.4, E12.4 
F10.3, riO.3, F9.4, F9.4, F9.4 
F12.4, F12.4, F12.4 
F12.4, F12.4, F12.4 
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Carriage Control 

E a printed line is being edited, the first character of 
the line will be used for controlling the printer car- 
riage. Under program control, this character will 
control spacing of the printer and will not be printed. 
The control characters and their effects are: 



blank 



1 

+ 



- Single space before printing 

- Double space before printing 

- Sheet eject before printing 

- Suppress space before printing 



Program control is usually obtained by beginning 
a FORMAT specification with IH followed by the 
desired control character. 



Data Input to the Object Program 

Data input to the object program is contained in unit 
records, as described in the section FORMAT State- 
ment. The following information should be consid- 
ered when preparing input data on punched cards: 
1. The input data record must correspond to 

the field width specifications defined in the 

FORMAT statement. 

Blanks within a number are not allowed; 



2. 



3, 



however, blanks may precede the number 

in the field. Thus, all numbers must be 

right-justified in a field. 

A plus sign may be implied by no sign or 

indicated by a plus sign; a negative number, 

however, must be preceded by a minus 

sign. 



SPECIFICATION STATEMENTS 

The Specification statements are nonexecutable 
because they do not cause the generation of instruc- 
tions in the object program. Instead, they provide 
the compiler with information about the nature of the 
constants and variables used in the program. In ad- 
dition they supply the information required to allocate 
locations in storage for certain variables and/or 
arrays. 

All specification statements must precede the 
first executable statement of the source program. 
The Specification statements must appear in the 
following order: 



Type Statements (REAL, INTEGER) 
EXTERNAL Statements 
DIMENSION Statements 
COMMON Statements 
EQUIVALENCE Statements 

Type Statements (REAL, INTEGER) 

General Form: 

INTEGER a, b, c, . . . 
REAL a, b, c, . . . 



where: 



a. 



b, c, ... are variable, array, FUNCTION 
subprogram or arithmetic statement func- 
tion names appearing in a program or sub- 
program. Arrays named in this statement 
must also be dimensioned in this statement. 



Examples: 



INTEGER 
REAL 



DEV, JOB, XYZ12, ARRAY(5.2,6) 
ITA, SMALL, ANS, NUMB(3, 14) 



The REAL and INTEGER statements explicitly 
define the type of variable, array, or function. In 
the first example, the variable DEV (implicitly de- 
fined as a real variable, because its initial letter 
is not I, J, K, L, M, or N) is explicitly defined 
as an integer variable and is, therefore, handled as 
an integer variable in the program. The appearance 
of a variable name in either of these statements 
overrides any implicit tjrpe specification determined 
by the initial letter of the variable. 

Type statements must precede any other Speci- 
fication statements and all executable statements in 
the source program. 

EXTERNAL Statement 
General Form: 



EXTERNAL a. b,c,... 



where: 



a,b,c, ... are the names of FUNCTION subpro- 
grams, SUBROUTINE subprograms, or 
Fortran-supplied subprograms that appear 
in any argument list. 
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Example: 

EXTERNAL SIN, MATRX, INVRT 

Any subprogram named in the EXTERNAL 
statement may be used as an argument for other 
subprograms (see SUBPROGRAM STATEMENTS ). 
Subprograms named in an EXTERNAL statement are 
loaded at execution time. 

DIMENSION Statement 
General Form: 



DIMENSION a(ki), b(k2), c(k3), . • .xOcn) 



where: 



a, b, c, . . . X are names of arrays. 

kj^,k2,k3, . . .kjj are each composed of 1, 2, or 3 
unsigned integer constants that specify the 
maximum value for 1, 2, or 3 subscripts, 
respectively. 

Example: 

DIMENSION A(10), B(5, 15), 0(9,9,9) 

The DIMENSION statement provides information 
to allocate storage for arrays in an object program 
(unless the information appears in a Type or COM- 
MON statement). It defines the maximum size of 
each array listed. 

Each variable that appears in subscripted form 
in a source program must appear in a Type, DIMEN- 
SION, or COMMON statement contained within the 
source program. The first of these statements that 
refers to the array must give dimension information. 
(See COMMON Statement - With Dimensions. ) 

COMMON Statement 

General Form: 

COMMON a, b,c,...n 
where: 

a, b, c, . . • n are variable or array names. 



Variables or arrays that appear in the main 
program or a subprogram may be made to share the 
same storage locations with variables or arrays of 
the same type and size in other subprograms, by use 
of the COMMON statement. For example, if one 
program contains the statement: 

COMMON TABLE 

and a second program contains the statement: 

COMMON LIST 

the variable names TABLE and LIST refer to the same 
storage locations (assuming the data associated with 
the names TABLE and LIST are equal length and type). 

If the main program contains the statement: 
COMMON A, B, C 

and a subprogram contains the statement: 

COMMON X, Y, Z 

and A, B, and C are equal in length to X, Y, and Z, 
respectively, then A and X refer to the same storage 
locations, as do B and Y, and C and Z. 

Within a specific program or subprogram, vari- 
ables and arrays are assigned storage locations in 
the sequence in which their names appear in a COM- 
MON statement. Subsequent sequential storage 
assignments within the same program or subprogram 
are made with additional COMMON statements. 

A dummy variable can be used in a COMMON 
statement to establish shared locations for variables 
that would otherwise occupy different locations. For 
example, the variable S can be assigned to the same 
location as the variable Z of the previous example 
with the following statement: 

COMMON Q, R, S 

where Q and R are dummy names that are not used 
elsewhere in the program. 

Redundant COMMON entries are not allowed. 
For example, the following is invalid: 

COMMON A, B, C, A 
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COMMON Statement- With Dimensions 

General Form : 

COMMON a(kj^), hQi^), c(kg), . . . n(kjj) 
where: 

a, b, c, . . . n are array names and 

kj,k ,kg, . . .kj^ are each composed of 1, 2, or 3 
unsigned integer constants that specify the 
dimensions of the array. 

Example : 

COMMON A(10), B(5,5,5), 0(5,5,5) 

This form of the COMMON statement, besides 
performing the functions discussed previously for 
the COMMON statement, performs the additional 
function of specifying the size of arrays. 



NOTES: 

1. Dummy arguments for SUBBOUTINE 

or FUNCTION statements cannot appear in COMMON 

statements. 

2. A single COMMON statement may con- 
tain variable names, array names, and dimensioned 
array names. For example, the following are valid: 

DIMENSION B(5, 15) 
COMMON A, B, C(9,9,9) 

3. All dimensioned arrays in a main pro- 
gram or subprogram and all items in COMMON are 
stored in descending storage locations. 



General Form: 

EQUIVALENCE (a,b, ...), (d, e, ...),.. . 

where: 

a, b, d, e, . . . are simple variables or subscripted 
variables. Subscripted variables may have 
either multiple subscripts (which must agree 
with the DIMENSION statement) or single 
subscripts. The subscripts must be integer 
constants. 

Each pair of parentheses in the EQUIVALENCE 
statement encloses two or more variable names that 
refer to the same location during the execution of 
the object program. 

Any number of variables may be listed in a single 
EQUIVALENCE statement. 

Examples: 

EQUIVALENCE (A, B, SAVE, AREA), 

(E(l), r(l)), (G(l), H(5)) 
EQUIVALENCE (A(4), C(2), D(l)) 

In the second example, making A(4), C(2), 
and D(l) equivalent to one another sets up an 
equivalence among the elements of each array as 
follows: 



A(3) 


C(l) 




A(4) 


C(2) 


D(l) 


A(5) 


C(3) 


D(2) 



EQUIVALENCE Statement 

Different variables and arrays are usually assigned 
unique storage locations. However, it may be de- 
sirable to have two or more variables of the same 
type and size share the same storage locations. This 
facility is provided by the EQUIVALENCE statement. 



An EQUIVALENCE statement must not contradict 
any previously established equivalences. 

Within an EQUIVALENCE List, there may be no 
more than one variable which previously has been: 



1. EQUIVALENCED, or 

2. placed in COMMON 
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The following sequence of statements is invalid: 

COMMON D 

EQUIVALENCE (A, B, C) 
EQUIVALENCE Qi, Y, Z) 
EQUIVALENCE (A, Z) 
EQUIVALENCE (D, X, P) 

The following is valid: 

COMMON D 

EQUIVALENCE (D,X,P) 
EQUIVALENCE (A, B, C, X) 
EQUIVALENCE (X, Y, Z) 



COMMON with EQUIVALENCE aatements 

No two elements that appear in a COMMON state- 
ment may be made equivalent. Both of the following 
examples are invalid: 

COMMON A, B COMMON A, B 
EQUIVALENCE (A, B) EQUIVALENCE (A, R), 

(R,D), (D.B) 

However, EQUIVALENCE statements may extend 
the size of the COMMON area. For example, the 
following is valid: 

DIMENSION C(4) 
COMMON A, B 
EQUIVALENCE (B, C(2)) 



DIMENSION C(4) 
COMMON A, B 
EQUIVALENCE (A,C(2)) 

for it would force C(l) to precede A in the COMMON 
area, as follows: 

C(l) (outside the COMMON area) 

A C(2) 

B C(3) 

C(4) 



Conversion to Single Subscripts 

Two- and three-dimensional arrays actually ap- 
pear in storage in a one- dimensional sequence of 
core storage words. 

In an EQUIVALENCE statement it is possible 
to refer to elements of multi-dimensioned arrays 
by single- subscripted variables. For example, 
in an array dimensioned A (3, 3, 3), the fourth 
element of the array can be referenced as A(l, 2, 1) 
or as A(4). 

The rules for converting multiple subscripts to 
single subscripts are as follows: 

1. For a two-dimensional array, dimensioned 
as A(I, J): the element A(i, j) can also be 
referenced as A(n), where n = i + I(j-l). 

2. For a three-dimensional array, dimensioned 
as A(I, J, K): the element A(i, j , k) can also 
be referenced as A(n), where 

n = i + I(j-1) + I * J(k-1). 



for it would produce the following relationship in 
the COMMON area: 



A 


C(l) 


B 


C(2) 




C(3) 




C(4) 



Since arrays must be stored in descending storage 
locations, a variable may not be made equivalent to 
an element of an array in such a manner as to cause 
the array to extend beyond the beginning of the COM- 
MON area. For example, the following coding is 
invalid: 



SUBPROGRAM STATEMENTS 

Suppose that a program is being written which, at 
various points, requires the same computation to be 
performed with different data for each calculation. 
It would simplify the writing of that program if the 
statements required to perform the desired computa- 
tion could be written only once and then could be re- 
ferred to freely. Each reference to the statements 
would have the same effect as if the statements were 
written at the point in the program where the refer- 
ence was made. For example, if a general program 
were written to take the square root of any number, 
it would be desirable to be able to incorporate that 
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program (or subprogram) into other programs 
where square root calculations are required. 

The Fortran language provides for the preceding 
situation through the use of subprograms. There are 
three classes of subprograms: Statement functions, 
FUNCTION Subprograms, and SUBROUTINE Subpro- 
grams. In addition, there is a group of Fortran sup- 
plied subprograms. 

The first two classes of subprograms are called 
functions. Functions differ from the SUBROUTINE 
subprograms in that functions always return a single 
value to the calling program, whereas, a SUB- 
ROUTINE subprogram can return any number of 
values to the calling program. A function is em- 
ployed (or called) by writing the name of the function 
(see Subprogram Names) and an argument list in a 
standard arithmetic expression. A SUBROUTINE 
subprogram must be called by a special Fortran 
statement, namely, the CALL statement. 

The Statement function is written and compiled 
as part of the program in which it appears. The 
other subprograms are written and compiled separ- 
ately and linked to the main program at the time 
they are loaded for execution. 

Subprogram Names 

A subprogram name consists of 1-5 alphameric 
characters, the first of which must be alphabetic. 
The type (real or integer) of a subprogram can be 
indicated in the same manner as variables. 

The type of a statement function may be indicated 
implicitly by the initial character of the name or 
explicitly by the REAL or INTEGER Type statement. 

The type of a Fortran supplied subprogram is 
indicated implicitly by the initial character of its 
name. 

The type of a FUNCTION subprogram may be 
indicated implicitly by the initial character of the 
name or explicitly by a Type specification (see Type 
Specification of the FUNCTION Subprogram ) . In the 
latter case, the implicit type is overridden by the 
explicit specification. 

The type of a SUBROUTINE subprogram is not 
defined, because the result returned to the main 
program is dependent only on the type of the vari- 
able names in the argument list. 



A list of the presently used names for subpro- 
grams is contained in the publication, IBM 1130 
Subroutine Library (Form C26-5929). 

Functions 

In mathematics, a function is a statement of the re- 
lationship between a number of variables; the value 
of the function depends upon the values assigned to 
the variables (or arguments) of the function. The 
same definition of function is true in Fortran. To 
use a function in Fortran, it is necessary to: 

1. Define the function, that is: 

a. Assign a unique name by which it may 
be called. 

b. State the arguments of the function. 

c. State the procedure for evaluating the 
function, 

2. Call the function, where required, in the 
program. 



When the name of a function appears in any 
Fortran arithmetic expression, program control 
is transferred to the function routine. Thus, the 
appearance of the function with its arguments causes 
the computations indicated by the function definition 
to be performed. The resulting quantity replaces 
the function reference in the expression and assumes 
the mode of the function. The mode of a function, as 
with variables, is determined either implicitly by 
the initial character of its name, or explicitly by a 
Type statement. 

Statement Function 

General Form: 



where: 



a is a function name followed by parentheses 
enclosing its arguments, which must be 
distinct, non-subscripted variables separ- 
ated by commas. 

b is an ejq)ression that does not involve sub- 
scripted variables. 
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Examples: 

FIRST(X) = A*X+B 
OTHER(D) = FIRST (E)+D 

If the statement Y = OTHER(Z) appears in a program 
in which the above functions are defined, the cur- 
rent values of A, B, E, and Z will be used in a cal- 
culation which is equivalent to: 

Y = A*E+B+Z 

Since the arguments of "a" are dummy argu- 
ments, their names may be the same as names 
appearing elsewhere in the program. Those 
variables in b that are not Included in the dummy 
argument list are the parameters of the function 
and are defined as the ordinary variables appearing 
elsewhere in the source program. The type of each 
dummy argument is defined implicitly. A maximum 
of fifteen variables appearing in the expression may 
be used as arguments of the function. 

Any Statement function appearing in b must have 
been previously defined. All definitions of Statement 

functions must follow the Specification statements 

and precede the first executable statement of the 

source program. 

Statement functions are compiled as internal 

subprograms; therefore, they will appear only once 

in the object program. 

NOTE; The same dummy arguments may be used 
in more than one Statement function definition and 
may also be used as variables outside Statement 
function definitions. 

Fortran Supplied Subprograms 

Fortran supplied subprograms are predefined sub- 
programs that are part of the system library. A 
list of all the Fortran supplied subprograms 
is given in Table 1. Note that the type (real or inte- 
ger) of each subprogram and its arguments are pre- 
defined and cannot be changed by the user. 

To use a Fortran supplied subprogram, simply 
use the function name with the appropriate arguments 
in an arithmetic statement. The arguments may be 
arithmetic expressions, subscripted or simple vari- 
ables, constants, or other Fortran supplied sub- 
programs. 

Examples: 

DISCR = SQRT(B**2-4. 0*A*C) 
A = ABS (COS(B)) 



Table 1. Fortran Supplied Subprograms 



Nome 


Function Performed 


No. of 
Argu- 
ments 


Type of 

Argu- 

ment(s) 


Type of 
Func- 
tion 


SIN 


Trigonometric sine 




Real 


Real 


COS 


Trigonometric cosine 




Real 


Real 


ALOG 


Natural logarithm 




Real 


Real 


EXP 


Argument power of e 
(i.e.. eX) 




Real 


Real 


SORT 


Square root 




Real 


Real 


ATAN 


Arctangent 




Real 


Real 


ABS 


Absolute value 




Real 


Real 


lABS 


Absolute value 




Integer 


Integer 


FLOAT 


Convert integer argument 
to real 




Integer 


Real 


IFIX 


Convert real argument to 










integer 




Real 


Integer 


SIGN 


Transfer of sign (Sign of 
Argj times Argj) 


2 


Real 


Real 


ISIGN 


Transfer of sign (Sign of 
Argjtimes Arg^) 


2 


Integer 


Integer 


TANH 


Hyperbolic tangent 


1 


Real 


Real 
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The use of the SQRT function in the first example 
causes the calculation of the value for the square 
root of the expression (B**2-4. 0*A*C). This value 
replaces the current value of DISCR. 

In the second example, cosine B is evaluated 
and its absolute value replaces the current value 
of A. 

The Fortran Compiler adds an E or an F in front 
of the names of real Fortran supplied programs to 
specify required precision. Refer to IBM 1130 Sub - 
routine Library (Form C26-5929) for descriptions of 
Fortran supplied subprograms and subprogram error 
detection routines. 



FUNCTION Subprogram 

The FUNCTION subprogram is a Fortran subpro- 
gram consisting of any number of statements. It is 
like a Fortran supplied subprogram in that it is 
an independently written program that is executed 
whenever its name appears in another program. In 
other words, if a user needs a function that is not 
available in the library, he can write it with Fortran 
statements. 
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General Form: 



FUNCTION name (a^^ 
(FORTRAN statements) 



RETURN 
END 



^2' ^3 » 



^n) 



where: 



name is a subprogram name, and 

a^, a2, a3, ... a^ are nonsubscripted 
variable names, array names, or other 
subprogram names (except that they may 
not be Statement function names). 



When a dummy argument is an array name, an 
appropriate DIMENSION statement must appear in 
the FUNCTION subprogram. 

When an argument is a subprogram name, it 
must be declared in an EXTERNAL statement in the 
calling program. The following example illustrates 
the use of the EXTERNAL and DIMENSION state- 
ments with subprograms. 

Calling Program : 

EXTERNAL ABS 
DIMENSION A(4) 



The FUNCTION subprogram may contain any 
Fortran statement except a SUBROUTINE state- 
ment or another FUNCTION statement and must re- 
turn control to the calling program with a RETURN 
statement. 

The arguments of the Fortran subprogram 
may be considered to be dummy variable names. 
These are replaced at the time of execution by the 
actual arguments supplied in the function reference 
in the main program. The actual arguments must 
correspond in number, order, and type to the dummy 
arguments. The arguments in a FUNCTION subpro- 
gram may be any of the following: any type of con- 
stant, any type of subscripted or nonsubscripted 
variable, an arithmetic expression, or a subprogram 
name (except that they may not be Statement function 
names). 

The relationship between variable names in the 
calling program and the dummy names in the FUNC- 
TION subprogram is illustrated in the following 
example: 



Calling 
Program 



A = SOMEF (B, C) 



FUNCTION 
Subprogram 



FUNCTION SOMEF (X, Y) 

SOMEF = X/Y 

RETURN 

END 



In the preceding example, the value of the 
variable B of the calling program is used in the 
subprogram as the value of the dummy variable X; 
the value of C is used in place of the dummy variable 
Y. Thus, if B = 10. and C =5.0, then A = 2.0, 
that is, B/C. 



1 = 3 

B = COMP(A, I, ABS) 



Called Subprogram: 



FUNCTION COMP(X, J, FUNCT) 
DIMENSION X(4) 
TEMP = 
DO 10 K = 1,J 
10 TEMP = TEMP + X(K) 
COMP = FUNCT (TEMP) 
RETURN 
END 

In this example, the resulting value of B returned 
to the calling program is equivalent to: 

B = ABS(A(1) + A(2) + A(3)) 

The value of the formal arguments of a FUNC- 
TION subprogram must not be redefined in the sub- 
program. That is, they must not appear on the left 
side of an arithmetic statement, or in an input list, 
or as the index in a DO statement. Variables that 
appear in common storage may not be redefined 
either. For example, the following violates this 
rule: 

FUNCTION SAM (A, B, K) 
COMMON J 
J = J + 1 
K = J 

The name of the function must appear at least 
once as the variable name on the left side of an 
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arithmetic statement, in a READ statement, or in 
the argument list of a CALL statement. For example: 

Calling Program: 

ANS = ROOTl*CALC (X, Y, I) 

FUNCTION Subprogram; 

FUNCTION CALC (A, B, J) 



RETURN statement. The END statement specifies 
the end of the subprogram for the compiler; the 
RETURN statement signifies the conclusion of a 
computation and returns any computed value and 
control to the calling program. There may, in fact, 
be more than one RETURN statement in a FUNCTION 
or SUBROUTINE subprogram. For example: 

FUNCTION DAV (D, E, F) 
IF(D-. 1)2,3,2 



J*2 



DAV = 



CALC = A**I/B 



RETURN 

END 



RETURN 
DAV = . . 



In this example, the values of X, Y, and I are 
used in the FUNCTION subprogram as the values of 
A, B, and J, respectively. The value of CALC is 
computed and this value is returned to the calling 
program where the value of ANS is computed. 

Type Specification of the FUNCTION Subprogram 

The type of function may be explicitly stated by the 
inclusion of the word REAL or INTEGER before the 
word FUNCTION, For example: 

REAL FUNCTION SOMEF (A, B) 



RETURN 
END 

INTEGER FUNCTION CALC (X, Y, Z) 



RETURN 
END 

NOTE: The function type, if explicitly stated, must 
be defined in the calling program by use of the 
INTEGER or REAL type statement. 

END and RETURN Statements 

Note that all of the preceding examples of FUNCTION 
subprograms contain both an END and at least one 



RETURN 
END 

SUBROUTINE Subprogram 

The SUBROUTINE subprogram is similar to the 
FUNCTION subprogram in many respects: the 
naming rules are the same, they both require a 
RETURN statement and an END statement, and they 
both contain the same sort of dummy arguments. 
Like the FUNCTION subprogram, the SUBROUTINE 
subprogram is a set of commonly used operations; 
but the SUBROUTINE subprogram does not restrict 
itself to a single value for the result, as does the 
FUNCTION subprogram. A SUBROUTINE sub- 
program can be used for almost any operation with 
as many results as desired. 

The SUBROUTINE subprogram is called by a 
special FORTRAN statement, the CALL statement. 
It consists of the word CALL followed by the name 
of the subprogram and its parenthesized arguments. 



General Form: 



SUBROUTINE name (a^^. ag, 



RETURN 
END 



^) 



where: 



name is the subprogram name (see Subprogram 
Names). 
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ij, ag, ag, 



a are the arguments (arguments 



are not necessary). Each argument used 
must be a nonsubscripted variable name, 
array name, or other subprogram name 
(except that it may not be a Statement function 
name). 

Because the SUBROUTENE is a separate sub- 
program, the variables and statement numbers do 
not relate to any other program (except the dummy 
argument variables). The SUBROUTINE subprogram 
may use one or more of its arguments to return 
values to the calling program. Any arguments so 
used must appear on the left side of an arithmetic 
statement or in an input list within the subprogram. 

The arguments may be considered dummy 
variable names that are replaced at the time of exe- 
cution by the actual arguments supplied in the CALL 
statement. The actual arguments must correspond 
in number, order and type to the dummy arguments. 
None of the dummy arguments may appear in an 
EQUIVALENCE statement in a SUBROUTINE sub- 
program. When the argument is an array name, an 
appropriate DIMENSION statement must appear in 
the SUBROUTINE subprogram. 

CALL Statement 

The CALL statement is used only to call a SUB- 
ROUTINE subprogram. 

General Form: 



CALL name (aj^, ag.ag, 



^n) 



where: 



name is the symbolic name of a SUBROUTINE 
subprogram. 



*!• **2' "^3 



a are the actual arguments that 



are being supplied to the SUBROUTINE 
subprogram. 

Examples : 

CALL MATMP (X, 5, 40, Y, 7, 2) 

CALL QDRTI (X, Y, Z, ROOTl, ROOT2) 

The CALL statement transfers control to the 
SUBROUTINE subprogram and replaces the dummy 
variables with the value of the actual arguments that 
appear in the CALL statement. The arguments in a 



CALL statement may be any of the following: any 
type of constant, any type of subscripted or nonsub- 
scripted variable, an arithmetic expression, or a 
subprogram name (except that they may not be 
Statement function names). 

The arguments in a CALL statement must agree 
in number, order, type, and array size with the 
corresponding arguments in the SUBROUTINE sub- 
program. 

Subprograms Written in Assembler Language 

Subprograms can be written in the 1130 Assembler 
language to be called by a FORTRAN program. In 
order to write such subprograms, the user must 
know the linkage generated by the FORTRAN Com- 
piler and the location of the arguments. 

The linkage to all three types of routines (SUB- 
ROUTINE Subprograms, FUNCTION Subprograms, 
Fortran supplied subprograms) is assembled and 
executed in the same way as the Assembler language 
CALL statement (see Program Linking Statements 
in the publication, IBM 1130 Assembler Language. 
Form C2 6-592 7). 

The arguments in the linkage are located as 
follows: At execution time, the Branch instruction 
corresponding to the CALL is followed in memory 
by a list of the addresses of the arguments. 

Examples: 

SUBROUTINE Subprogram CALL: 

CALL JOE (A, B, C) 
Result in memory at execution: 



c 



2 word CALL 

BSI L (Address of Entry Point of JOE) 



ADDRESS OF A 



ADDRESS OF B 



ADDRESS OF C 



First Word of Next Instruction. 



Subprogram should return here. 



When a SUBROUTINE subprogram CALL is 
used, results of the computations within the sub- 
program will be returned by means of the arguments. 
The "Assembler coded SUBROUTINE subprogram 
must return control to the calling program at the 
next location following the last argument in the list. 
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FUNCTION Subprogram call or Fortran 
supplied subprogram call: 

X = Y + JOE(A,B,C) 

The underlined section of the above statement 
produces the same result in core storage as the 
SUBROUTINE subprogram example. It must be 
noted, however, that the Assembler coded FUNCTION 
or Fortran supplied subprogram must return a single 
result to the calling program by means of the pseudo 
floating accumulator or the machine accumulator, 
depending on whether the FUNCTION type is real or 
integer. (The floating accumulator is the last three 
words of the Transfer Vector area. See Program 
Linking Statements in the publication, IBM 1130 
Assembler Language , Form C26-5927.) The argu- 
ment list must not be used to return a result of the 
subprogram computation. 

Machine Indicator Tests 

The Fortran language provides machine indicator 

tests even though some of the machine components 

referred to by the tests do not physically exist. The 

machine indicators that do not exist are simulated by 

SUBROUTINE subprograms located in the system 

library. 

To use any of the following machine indicator 

tests, the user supplies the proper arguments and 
writes a CALL statement. In the following listing, 
i is an integer expression; j is an integer variable. 



General Form 



SLITE (i) 



SLITET (i, 3) 



OVERFL (j) 



Function 

If 1=0, all sense lights are 
turned off. If i=l. 2,3, or 4, 
the corresponding sense light 
is turned on. 
Sense light i (equal to 1, 2, 3, 
or 4) is tested. If i is on, j 
is set to 1; if i is off, j is 
set to 2. After the test, 
sense light i is turned off. 
This indicator is on if an 
arithmetic operation with 
real variables and constants 
results in an overflow or 
underflow condition; that is, 
i is set to 1 if the result of 
an arithmetic operation is 
greater than 2127 (io38); 
j is set to 2 if no overflow 
condition exists; j is set to 



DVCHK (j) 



DATSW (i. j) 



TSTOP 



3 if the result of an arithmetic 
operation is not zero but less 
than 2-129 (io-39). The 
machine is left in a no over- 
flow condition. 
This indicator is set on if an 
arithmetic operation with 
real constants and variables 
results in the attempt to divide 
by zero. If the indicator is 
on, j is set to 1; if off, j is 
set to 2. The indicator is 
set off after the test is made. 
Data entry switch i is tested. 
If i is on, j is set to 1; if i is 
off, j is set to 2. 
The TSTOP subroutine may be 
used to stop the tracing mode 
if trace control has been speci- 
fied at compile time. 
The TSTRT subroutine may be 
used to re-establish the trace 
mode if trace control has been 
specified at compile time. 
The FCTST subroutine checks an 
indicator word that is set on 
if any Fortran supplied sub- 
program detects an error. If 
the indicator is off, i is set to 
2 and i is set to 0; if the indi- 
cator is on, i is set to 1 and 
i is set equal to the contents 
of the indicator. The indicator 
is set to after the test. 
Refer to IBM 1130 Subroutine 
Library (Form C26-5929) for 
descriptions of errors detected 
by Fortran supplied subroutines 
and the contents of resulting 
indicator words. 



NOTE: SLITET and OVERFL contain six charac- 
ters in order to be compatible with other IBM 
Fortrans; SLITET and OVERFL are changed by 
the Fortran CompUer to SLITT and OVERF, 
respectively. 



TSTRT 



FCTST (i, j) 



Examples: 



CALL SLITE (3) 
CALL SLITET (K*J, L) 
CALL OVERFL (J) 
CALL DVCHK (I) 
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CALL DATSW (15, N) 
CALL TSTOP 
CALL TSTRT 
CALL FCTST (IM, JM) 



CALL SLITET (3, KEN) 
5 IF (KEN- 2) 10, 9, 10 
9 WRITE (3, 36)(ANS(K), K=l, 10) 
10 



As an example of how the sense lights can be 
used in a program, assume that it is desired to con- 
tinue with the program if sense light 3 is on and to 
write results if sense light 3 is off. This can be 
accomplished by using the IF statement or a Com- 
puted GO TO statement, as follows: 

CALL SLITE (3) 



CALL SLITET (3, KEN) 

24 GO TO (26, 25), KEN 

25 WRITE (3,36)(ANS(K), K=l, 10) 
26 



In statement 5, if KEN is not equal to 2, 
statement 9 is not executed. In statement 
24, if KEN equals 2, statement 25 is 
executed. 
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MONITOR FORTRAN 



The following Fortran statements and features apply 
only to the IBM 1130 Monitor System. These 
statements and features are not valid for use with 
the card/paper tape Fortran Compiler. 

CALL EXIT Statement 

This statement is used in a Fortran program when 
control is to be returned to the Supervisor portion 
of the Monitor System; that is, the CALL EXIT state- 
ment must be used as the last logical statement of a 
Fortran program. (The END statement must still 
be used as the last physical statement of each pro- 
gram or subprogram.) 

DEFINE FILE Statement 

The DEFINE FILE statement specifies to the Fortran 
Compiler the size and quantity of disk data records 
within files that will be used with a particular program 
and its associated subprograms. This statement must 
not appear in a subprogram, and it may appear only 
in a main prc^ram. Therefore, all subprograms 
used by the main program must use the defined files 
of the main program. 

The purpose of the DEFINE FILE statement is to 
divide the disk unit into files to be used in the disk 
READ, WRITE, and FIND statements. 



General Form: 



DEFINE FILE a^ (m^^, 1^^, 



U, v^), 



^2 <'^2'^2'^'^2>" 



where: 



a. is an Integer constant < 32, 767 that is the 
^ symbolic designation for this file, 
m. is an integer constant that defines the number 

of file records in this symbolic file. 
1. is an integer constant that defines the length 
^ (in words) of each file record in this symbolic 

file. The value of 1. must be less than or 

equal to 320. 
U is a fixed letter used to designate that the file 

must be read/written with the disk READ/ 

WRITE statements which will handle no 

data conversion. 



V. is a nonsubscripted integer variable name 
which is set at the conclusion of each disk 
READ/WRITE statement referencing this 
symbolic file. It is set to the value of 
the next available file record. This variable 
must also appear in COMMON if it is to be 
referenced by more than one program at 
execution time. 

NOTE : Since records which require no data conver- 
sion are transmitted, care must be exercised to en- 
sure that the programs using this file have the same 
precision. A disk READ/WRITE statement always 
starts transmittal at the beginning of a file record. 

Disk READ, WRITE, and FIND Statements 

The generalized READ and WRITE statements and 
the FIND statement for disk l/O appear as: 

READ (a'b) List 
WRITE (a'b) List 
FIND (a'b) 

where : 

a (an unsigned integer constant or integer vari- 
able) is the symbolic file number, 

b (an integer expression) is the record number 
where transmittal will start, and 

List is a list of variable names, separated by 
commas, for the input or output data. 

NOTE: Only information which requires no data 
conversion can be transmitted to and from disk 
storage. 

The purpose of the FIND statement is to move 
the disk read/write mechanism to the a'b record. 
The use of the FIND statement is optional. 

The user should be aware that the effect of the 
FIND statement will usually be nullified if any disk 
operations occur before the associated READ or 
WRITE statement (such disk operations occur as a 
result of a CALL LINK, calls to LOCAL subprograms, 
etc. ). Therefore in certain cases there may be no 
advantage to a FIND statement preceding a READ or 
WRITE statement. 
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CALL LINK Statement 

The CALL LINK statement calls a new main program 
from disk storage into core storage and transfers 
control to the first executable statement in that 
program. 

General Form: 



CALL LINK (NAME) 



where: 



NAME is the name of a Fortran main program 
as contained in the Location Equivalence 
Table (LET). The program name consists 
of 1-5 alphameric characters of which the 
first must be alphabetic. 



Examples; 

CALL LINK (JOE) 
CALL LINK (PROGS) 

The program that is called causes all subprograms 
and library subroutines that it references to read into 
core storage. Any program called by this statement 
must already be in disk storage. If the logic of the 
program allows any one of several Links to be called, 
it is necessary that all of the Link programs be on 
disk storage prior to execution or loading initialization. 

The COMMON area is not destroyed during the 
loading of the Link programs. If the size of COMMON 
differs between programs, the COMMON area size 
that remains undestroyed is determined by the newest 
Link program. 
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APPENDIX A: TABLE OF SOURCE PROGRAM CARD CHARACTER CODES 



Character 


Card Punches 








1 


1 


2 


2 


3 


3 


4 


4 


5 


5 


6 


6 


7 


7 


8 


8 


9 


9 


A 


12-1 


B 


12-2 


C 


12-3 


D 


12-4 


E 


12-5 


F 


12-6 


G 


12-7 


H 


12-8 


I 


12-9 


J 


11-1 


K 


11-2 


L 


11-3 


M 


11-4 


N 


11-5 





11-6 


P 


11-7 



Character 


Card Punches 


Q 


11-8 


R 


11-9 


S 


0-2 


T 


0-3 


U 


0-4 


V 


0-5 


w 


0-6 


X 


0-7 


Y 


0-8 


z 


0-9 




12-8-3 


< 


12-8-4 


( 


12-8-5 


+ 


12-8-6 


& 


12 


$ 


11-8-3 


* 


11-8-4 


) 


11-8-5 




11 


/ 


0-1 


} 


0-8-3 


% 


0-8-4 


# 


8-3 


@ 


8-4 


• 


8-5 


= 


8-6 



NOTES: 



1. At compilation time, the following 
character punches are treated as 
being equal; however, the charac- 
ters to the left of the "and" must be 
used if compatibility with IBM 
System/360 Fortran is desired. 



' and® 
+ and & 
= and # 



) and< 
( and% 



2. Only the 52 characters shown above 
can be handled at execution time 
through A- or H-type formatting 

in the Fortran Input/Output rou- 
tines. Any other character is re- 
placed with a blank. 

3. No transformations, such as & con- 
verted to +, etc. , are made through 
A- or H-converslon; however, the & 
is converted to + when read with I-, 
E-, or F-conversion. 
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APPENDIX B: NONSTANDARD ITEMS 



The items listed below, which are a part of the 
language described in this publication, are not con- 
tained in the standards defined by the ASA committee , 
X 3.4. 3 - Fortran, 

Expression of the form A**B**C 
Machine Indicator Tests 
Mixed mode expressions 
Monitor Disk Statements 
Automatic input/output conversion 
(e.g. I type to a real variable) 
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APPENDIX C: SOURCE PROGRAM STATEMENTS AND SEQUENCING 



Every executable statement in a source program 
(except the first) must have some programmed path 
of control leading to it. Control originates at the 
first executable statement in the program and is 
passed as follows: 



Statement 

GO TOn 
GO TO (nj, 

ii2.---nm).i 



Normal Sequence 



Statement n 
Statement n^ 



Statement Normal Sequence 

a = b Next executable statement 



CALL 

COMMON 
CONTINUE 

DEFINE FILE 

DIMENSION 

DO 



IF(a)Si,S2, S3 Statement Si if arithmetic a < 

Statement S2 if arithmetic a = 
Statement S3 if arithmetic a > 



First executable statement of 

called subprogram 
Nonexecutable 
Next executable statement 

Nonexecutable 
Nonexecutable 

DO sequencing, then the next 
executable statement 



INTEGER 

PAUSE 

READ 
REAL 
RETURN 



Nonexecutable 

Next executable statement 

Next executable statement 

Nonexecutable 

The first statement, or part of a 
statement, following the refer- 
ence to this program. 



EQUIVALENCE 
EXTERNAL 
FORMAT 
FUNCTION 



Nonexecutable 
Nonexecutable 
Nonexe cutable 
Nonexecutable 



STOP 
SUBROUTINE 

WRITE 



Terminate execution 
Nonexecutable 

Next executable statement 
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APPENDIX D: IBM SYSTEM/360 RESERVED WORDS 



The IBM 1130 Fortran compilers do not require re- 
served words; however, the words listed below are 
reserved by two IBM System/360 Fortran Compilers 
(Special Support and "E" Level). These words should 
be used in a Fortran source program only as specified 
in the publications describing those compilers if 
compatibility with those compilers is desired. Also, 
in that case, these words should not be used as names. 
(In addition, the same two compilers require signifi- 
cant blanks around certain identifiers, and no em- 
bedded blanks within the identifiers. This restriction 
should also be observed if compatibility is desired. ) 
In other words, if these restrictions are observed, 
the source program could be compiled for either the 
1130 or Systeni/360, 



ABS 

AINT 

ALOG 

AMAXO 

AMAXl 

AMINO 

AMINl 

AMOD 

ATAN 

BACKSPACE 



CALL 
COMMON 

CONTINUE 
COS 

DEFINE 

DIM 

DIMENSION 

DFLOAT 

DO 

DOUBLE 



DSIGN 
DVCHK 

END 

EQ 

EQUIVALENCE 

EXP 

EXTERNAL 

FILE 
FLOAT 
FORMAT 
FUNCTION 

GE 
GO 
GT 

lABS 

IDIM 

IF 

IFIX 

INT 

INTEGER 

ISIGN 

LE 
LT 



MAXO 

MAXl 

MINO 

MINI 

MOD 

NE 

OVERFL 

PAUSE 

READ 
REAL 
RETURN 
REWIND 

SIGN 

SIN 

SLITE 

SLITET 

SQRT 

STOP 

SUBROUTINE 

TANK 
TO 

WRITE 
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INDEX 



A-conversion, IS 

ABS subprogram (Table 1), 22 

ALOG subprogram (Table 1), 22 

Alphameric data conversion, 14 

Arguments, 

dummy, 22, 23 

function, 23 
Arithmetic, 

expressions, 5 

operation symbols, 5 

statements, 6 

Statement functions, 21 
Arrays, 3, 4 

arrangement, 3 

dimensioning, 18 

element equivalence, 19 
AT AN subprogram (Table 1), 22 

Blanks, 1 

Blank fields, 16 
Blank lines, 16 

CALL DATSW statement, 26 

CALL DVCHK statement, 26 

CALL EXIT statement, 28 

CALL FCTST statement, 26 

CALL LINK statement, 29 

CALL OVERFL statement, 26 

CALL SLITE statement, 26 

CALL SLITET statement, 26 

CALL statement, 25 

CALL TSTOP statement, 26 

CALL TSTRT statement, 26 

Card punches for source program, 30 

Carriage control, 17 

Comments, 1 

COMMON statement, 18, 29 

Computed GO TO statement, 6 

Constants, 1 

Integer, 2 

Real, 2 
Continuation line, 1 
CONTINUE statement, 9 
Control statements, 6 

GO TO, 6, 7 

IF, 7 

DO, 7 

CONTINUE, 9 

END, 9 

PAUSE, 9 

STOP, 9 
Conversion of alphameric data, 14 
Conversion of numeric data, 13 
Conveision to Single Subscripts, 20 

Data conversion, 

alphameric, 14 
numeric, 13 
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Data input to object program, 17 

DATSW subprogram, 26 

DEFINE FILE statement, 28 

DIMENSION statement, 18 

Disk READ, WRITE, and FIND statements, 

DO statement, 7 

DVCHK subprogram, 26 

E-conversion, 14 
END statement, 9, 24 
EQUIVALENCE statement, 19 
EXTERNAL stetement, 17 
EXP subprogram (Table 1), 22 
Explicit specification, 2 

(see Type Statements), 17 
Expressions, 4 

rules for construction, S, 6 



F-conversion, 13 

FCTST subprogram, 26 

Feature requirements (of compiling machine), 

FIND statement, 28 

FLOAT subprogram (Table 1), 22 

FORMAT statement, 12 

Fortran Supplied Subprograms, 22 

FUNCTION subprogram, 22 

Functions, 

definition, 21 

Statement ftuictions, 21 

General I/O state nents, 10 
GO TO statement, 

computed, 6 

unconditional, 6 

H-conversion, 14 

I-conveision, 13 

lABS subprogram (Table 1), 22 

IF statement, 7 

IFIX subprogram (Table 1), 22 

Implicit specification, 2 

Increment of a DO statement, 8 

Index of a DO statement, 8 

Indexing I/O lists, 10 

Initial value of a DO statement, 8 

Input data, 17 

conveision, 13, 14 
Input/Output statements, 

disk, 28 

general, 10 
Integer constants, 2 
INTEGER statement (type), 17 
ISIGN subprogram (Table 1), 22 

List, 10 

Literal data, 15 

Location Equivalence Table (LET), 29 
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Machine configuxation and feature 

lequiiements, ii 
Machine indicatoi tests, 26 
Monitor statements, 28 
Multiple field format, 16 

Nesting of a DO statement, 8, 9 
Nonstandard Items (Appendix B), 31 
Numeric data conversion, 13 

Object program input, 17 
Operation symbols, 5 
Order of arithmetic operations, 5 
Order of specification statements, 17 
OVERFL subprogram, 26 

Parentheses, 5 
PAUSE statement, 9 
Printer Carriage Control, 17 

Range of a DO statement, 8 
READ statement, 10 

(see also Disk Read and Write statements), 28 
Reading alphameric data, 14 
Real Constants, 2 
REAL statement (Type), 17 
Reserved words (IBM System/360), 33 
Restrictions of a DO statement, 8 
RETURN statement, 23 

Sequence of source statements, 32 

Sequence of specification statements, 17 

Simulated machine indicator, 26 

SIN subprogram (Table 1), 22 

SIGN subprogram (Table 1), 22 

SLITE subprogram, 26 

SLITET subprogram, 26 

Source program card code characters (Appendix A), 30 

Specification statements, 17 

COMMON, 18 

DIMENSION, 18 

EQUIVALENCE, 19 

Type (REAL, INTEGER), 17 
SQRT subprogram (Table 1), 22 
Statement, 



comments, 1 

continuation, 1 

format, 1 

numbers, 1 

Function, 21 
Statements, 

arithmetic, 6 

control, 6 

format, 12 

input/ output, 9 

specification, 17 

subprogram, 20 
STOP statement, 9 
Subprograms, 

fiinctions, 21 

definition, 21 

END statement, 9, 24 

FONCTION, 22 

naming, 21 

RETURN statement, 23 

SUBROUTINE, 24 

writing in assembler language, 25 
SUBROUTINE subprogram, 24 
Subscripted variables, 4 
Subscripts, 3, 4 
System/360 Reserved Words, 33 

TANH subprogram (Table 1), 22 

Test value of a DO statement, 8 

TSTOP subprogram, 26 

TSTRT subprogram, 26 

Type statements (REAL, INTEGER), 17 

Variables, 2 

explicit specification, 2, 17 
implicit specification, 2 
names, 2 
rules for naming, 3 
types, 2 

WRITE statement^ 11 

(see also Disk Read and Write statements), 28 

X-conversion (blank fields), 16 
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